home *** CD-ROM | disk | FTP | other *** search
/ PC World 2002 March / PCWorld_2002-03_cd.bin / Software / TemaCD / xteq / setup.exe / {app} / plugins / XQ WinNT Wheel Mouse Use.xpl < prev    next >
Text File  |  2001-04-13  |  2KB  |  62 lines
  1. "FILE"="Xteq Systems X-Setup Plugin 6.0"
  2. "TYPE"="7"
  3. "COUNT"="3"
  4. "UIPATH"="Hardware\Mouse\Wheelmouse"
  5. "NAME"="Windows NT/2K/XP Wheelmouse Use"
  6. "OSVERSION"="010101"
  7. "VERSION"="1.13"
  8. "LANGUAGE"="VBScript"
  9. "TEXT 1"="Auto-Detect Wheel"
  10. "TEXT 2"="Always Enable Wheel"
  11. "TEXT 3"="Disable Detection"
  12. "DESCRIPTION 1"="These settings are for a PS/2 Wheel Mouse without special driver (IntelliPoint or 3rd party) when the wheel is not functional."
  13. "DESCRIPTION 2"="To automatically detect the wheel, check Box 1; To always enable the wheel, check Box 2."
  14. "DESCRIPTION 3"="If Box 1 [Auto Detect] or Box 2 [Always Enable] had been previously selected & neither is now desired, check Box 3."
  15. "AUTHOR"="Ojatex@aol.com"
  16. "CONTACTURL"="http://members.aol.com/ojatex/"
  17. "COPYRIGHT"="Copyright ⌐ Xteq Systems - All Rights Reserved"
  18. "COMMENT 1"="Thanks to CptSiskoX for suggested plugin."
  19. "COMMENT 2"="Save a Mouse --> Get a Laptop."
  20.  
  21.  
  22. sV1="HKLM\System\CurrentControlSet\Services\i8042prt\Parameters\EnableWheelDetection" 'DW 
  23.  
  24.  
  25. Sub Plugin_Initialize 
  26.     s=RegReadValue(sV1)
  27.  
  28.     'check for auto-detect
  29.     if s=1 then SetUIElement 1,true 
  30.  
  31.     'check for always enable
  32.     if s=2 then SetUIElement 2, true
  33.  
  34.     'check for disable selections
  35.     if s=3 then SetUIElement 3, true
  36. End Sub
  37.  
  38. Sub Plugin_CheckData(ElementIndex)
  39. End Sub
  40.  
  41. Sub Plugin_Apply(ElementIndex,ElementSubIndex)
  42.  
  43.  if GetUIElement(1)=true then
  44.     Call RegWriteValue(sV1,1,2)
  45.   Call Restart()
  46.  end if
  47.  
  48.  if GetUIElement(2)=true then
  49.     Call RegWriteValue(sV1,2,2)
  50.   Call Restart()
  51.  end if
  52.  
  53.  if GetUIElement(3)=true then
  54.     Call RegDeleteValue(sV1)
  55.  
  56. Call Restart()
  57. End if
  58. End Sub
  59.  
  60. Sub Plugin_Terminate 
  61. End Sub
  62.